unit UParametrosFiscais;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UFomCadastro, DBCtrls, StdCtrls, Buttons, ExtCtrls, DB, DBTables,
  Mask, ToolEdit, RXDBCtrl;

type
  TFParametrosFiscais = class(TFormCadastro)
    DSParametrosFiscais: TDataSource;
    QParamentrosFiscais: TQuery;
    Label1: TLabel;
    DBPessoaContato: TDBEdit;
    DBTelefoneContato: TDBEdit;
    Label2: TLabel;
    Label3: TLabel;
    DBText1: TDBText;
    Label4: TLabel;
    DBDTDataInicial: TDBDateEdit;
    Label5: TLabel;
    DBDTDataFinal: TDBDateEdit;
    DBCKInscriturarItensNF: TDBCheckBox;
    procedure BtnEditarClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BtnSalvarClick(Sender: TObject);
    procedure BtnCancelarClick(Sender: TObject);
    procedure BtnIncluirClick(Sender: TObject);
    procedure BtnExcluirClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FParametrosFiscais: TFParametrosFiscais;

implementation

uses UGeral, UGestao, UDMGeral, UDmGestao;

{$R *.dfm}

procedure TFParametrosFiscais.BtnEditarClick(Sender: TObject);
begin
  inherited;

  DSParametrosFiscais.DataSet.Edit;

end;

procedure TFParametrosFiscais.FormCreate(Sender: TObject);
const Sql_Paramentros_SEF = ' SELECT * FROM  SEF_PARAMETRO WHERE SEFPAR_CODIGOEMPRESA = %s ';
begin

  QParamentrosFiscais.Close;
  QParamentrosFiscais.SQL.Clear;
  QParamentrosFiscais.SQL.Add(Format(Sql_Paramentros_SEF,[IntToStr(Codigoempresa)]));
  QParamentrosFiscais.Open;

  inherited;

end;

procedure TFParametrosFiscais.BtnSalvarClick(Sender: TObject);
begin
  inherited;


  DSParametrosFiscais.DataSet.FieldByName('SEFPAR_CODIGOEMPRESA').AsInteger  := Codigoempresa;
  DSParametrosFiscais.DataSet.FieldByName('SEFPAR_USUARIO'      ).AsString   := Usuario;
  DSParametrosFiscais.DataSet.FieldByName('SEFPAR_DATA_REGISTRO').AsDateTime := date;

  if DSParametrosFiscais.DataSet.State in [dsinsert] then
    DSParametrosFiscais.DataSet.FieldByName('SEFPAR_SITUACAO').AsInteger := 0;

  DSParametrosFiscais.DataSet.Post;

  SBAtualiza.Click;

end;

procedure TFParametrosFiscais.BtnCancelarClick(Sender: TObject);
begin
  inherited;

  DSParametrosFiscais.DataSet.Cancel;

end;

procedure TFParametrosFiscais.BtnIncluirClick(Sender: TObject);
begin
  inherited;

  DSParametrosFiscais.DataSet.Insert;

  DSParametrosFiscais.DataSet.fieldbyname('SEFPAR_INSCRITURAR_ITENS_NF').AsInteger := 0; 

end;

procedure TFParametrosFiscais.BtnExcluirClick(Sender: TObject);
begin
  inherited;
  DSParametrosFiscais.DataSet.delete;
end;

procedure TFParametrosFiscais.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  FParametrosFiscais := Nil;
  Action := cafree;

end;

end.
